Workplace Effectiveness: Dealing with Change/Workplace Effectiveness: Dealing with Change.iso/pc/Assess.Dxr/Internal_41_Sound Handlers.ls

Text File | 1998-04-24 | 1.3 KB | 75 lines

on keepLittleSounds
  set vList to ["mouseDown.aif", "boing.aif", "boing2.aif", "digiring.aif", "wood block", "thingset", "swoosh", "ding.aif", "quickclick", "twing.aif"]
  repeat with vSound in vList
    set the purgePriority of member vSound to 1
  end repeat
end

on soundOrNext
  if soundBusy(2) then
    go(the frame)
  else
    go(the frame + 1)
  end if
end

on HandlePuppetSound stringParam
  stopSounds()
  puppetSound(string(stringParam))
  updateStage()
  repeat while soundBusy(1)
    if the mouseDown then
      puppetSound(0)
    end if
    updateStage()
  end repeat
  stopSounds()
  updateStage()
end

on HandlePuppetSoundNS stringParam
  stopSounds()
  puppetSound(string(stringParam))
  updateStage()
  DelaySome(15)
  repeat while soundBusy(1)
    updateStage()
  end repeat
  stopSounds()
  updateStage()
end

on soundClicker playsound
  global gClicked
  if soundBusy(1) then
    puppetSound(0)
  else
    puppetSound(playsound)
    set gClicked to the clickOn
  end if
  if the clickOn <> gClicked then
    puppetSound(playsound)
    set gClicked to the clickOn
  end if
end

on stopSounds
  sound stop 1
  sound stop 2
  puppetSound(0)
  updateStage()
end

on stopSound2
  if soundBusy(2) then
    sound stop 2
  end if
end

on DelaySome howLong
  startTimer()
  repeat while the timer < howLong
    nothing()
  end repeat
end